home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Photo Book 16: Sister 7
/
Digital Photo Book 16: Sister 7.iso
/
pc
/
DATA
/
main.dir
/
00021_Script_PHOTOBOOKêßå‰
< prev
next >
Wrap
Text File
|
2004-11-20
|
4KB
|
140 lines
global photo_max
property isauto
property spritenum
property cnt
property photo_no
property org_member
property paging
property page_cnt
property page_cnt_max
on beginsprite
isauto = false
photo_no = 0
org_member = sprite(spritenum).member
sprite(spritenum).member = photo_get(photo_no)
paging = 0
page_cnt_max = 10
end
on endsprite
sprite(spritenum).member = org_member
sprite(spritenum + 1).puppet = false
end
on photo_next
stop_paging
paging = 1
page_cnt = 0
page_cnt_max = 10
sprite(spritenum + 1).puppet = true
sprite(spritenum + 1).member = sprite(spritenum).member
sprite(spritenum + 1).loc = sprite(spritenum).loc
photo_no = photo_no + 1
if photo_no >= photo_max then photo_no = 0
sprite(spritenum).member = photo_get(photo_no)
end
on photo_prev
stop_paging
paging = -1
page_cnt = 0
page_cnt_max = 10
photo_no = photo_no - 1
if photo_no < 0 then photo_no = photo_max - 1
sprite(spritenum + 1).puppet = true
sprite(spritenum + 1).member = photo_get(photo_no)
sprite(spritenum + 1).loc = sprite(spritenum).loc
sprite(spritenum + 1).locH = sprite(spritenum).locH
end
on photo_auto
isauto = true
cnt = 1000
end
on photo_manual
isauto = false
end
on stop_paging
if paging then
sprite(spritenum).member = photo_get(photo_no)
sprite(spritenum + 1).puppet = false
paging = 0
end if
end
on exitFrame me
-- ノXノNノ酣[ノ肛瑪
if paging then
page_cnt = page_cnt + 1
if page_cnt < page_cnt_max then
n = 800 * page_cnt / page_cnt_max
v = 600 * page_cnt / page_cnt_max
case paging of
1:
-- 礒ヌOUT
sprite(spritenum + 1).locH = sprite(spritenum).locH + n
-2:
-- 礒竓ヌゥヌチIN
sprite(spritenum + 1).locH = sprite(spritenum).locH + 800 - n
sprite(spritenum + 1).locV = sprite(spritenum).locV + 600 - v
-3:
-- 竓ヌゥヌチIN
sprite(spritenum + 1).locV = sprite(spritenum).locV + 600 - v
-4:
-- 銜竓ヌゥヌチIN
sprite(spritenum + 1).locH = sprite(spritenum).locH - 800 + n
sprite(spritenum + 1).locV = sprite(spritenum).locV + 600 - v
-5:
-- 銜ヌゥヌチIN
sprite(spritenum + 1).locH = sprite(spritenum).locH - 800 + v
-6:
-- 銜閼ヌゥヌチIN
sprite(spritenum + 1).locH = sprite(spritenum).locH - 800 + n
sprite(spritenum + 1).locV = sprite(spritenum).locV - 600 + v
-7:
-- 閼ヌゥヌチIN
sprite(spritenum + 1).locV = sprite(spritenum).locV - 600 + v
-8:
-- 礒閼ヌゥヌチIN
sprite(spritenum + 1).locH = sprite(spritenum).locH + 800 - n
sprite(spritenum + 1).locV = sprite(spritenum).locV - 600 + v
-1:
-- 礒ヌゥヌチIN
sprite(spritenum + 1).locH = sprite(spritenum).locH + 800 - n
end case
else
paging = 0
sprite(spritenum).member = photo_get(photo_no)
sprite(spritenum + 1).puppet = false
end if
end if
-- 鬩ニヌシ鵈ヌテ鬆鷽ヌ敝塞ネ
if isauto and paging = 0 then
cnt = cnt + 1
if cnt > 150 then
cnt = 0
paging = - random(8)
page_cnt = 0
page_cnt_max = 50
photo_no = photo_no + 1
if photo_no >= photo_max then photo_no = 0
sprite(spritenum + 1).puppet = true
sprite(spritenum + 1).member = photo_get(photo_no)
sprite(spritenum + 1).loc = sprite(spritenum).loc
exitframe
end if
end if
end